﻿Imports BusinessLayer
Imports CommonLayer

Public Class frmEmployeeList

#Region "Declare"

    Public Overrides ReadOnly Property PermissionID() As PermissionEnum
        Get
            Return PermissionEnum.Employee
        End Get
    End Property

#End Region

#Region "Event"

#End Region

#Region "Overridable"

    Protected Overrides Sub InitDataToCombo()
        MyBase.InitDataToCombo()
        Dim oBLDictionary As New BLDictionary()
        With oBLDictionary
            .BusinessObject = dsDictionary
            .TableName = dsDictionary.Department.TableName
            .GetAllData()
        End With
    End Sub

    Protected Overrides Function GetFormDetail() As frmBaseDictionaryDetail
        Dim frm As New frmEmployeeDetail
        Return frm
    End Function

    Protected Overrides Function InitAddNewRow() As DataRow
        Return oBLDictionary.AddNewEmployee
    End Function

#End Region

#Region "Sub/Function"

#End Region

End Class
